home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
C/C++ Users Group Library 1996 July
/
C-C++ Users Group Library July 1996.iso
/
listings
/
v_01_03
/
1n03008a
< prev
next >
Wrap
Text File
|
1990-06-12
|
336b
|
27 lines
Listing 1
{*
* Terminate the program with an error message if
* pointer p is NIL.
*}
procedure not_NIL(p : pointer);
begin
if p = NIL then
runerror(204);
end;
var
p : ^char;
begin
p := NIL;
{$ifdef DEBUG}
not_NIL(p);
{$endif}
.
.
p^ := 'a';
end.